home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 11 / developer source - volume 11.iso / orinf / may96 / hoskf111.gif < prev    next >
Graphics Interchange Format  |  1998-02-10  |  9.8 KB  |  761x438  |  4-bit (12 colors)
   ocr: frmContact Properties FE D V Querhere Sub quenywnere(conamion as String) imherited.QueryWheret condition ) judpQueryStr = condition lstContacts.Translation = =SELECT lastname I'' II firstname, contactid FROM contact WHERE rr &6 condition & rr ORDER BY lastname, firstname ASC" DIM rec AS Object rec == frmContact.GetRecordset() rNumRows == rec.GetRow(ount ( txtContacts.Label = "Addresses for Ir & trmcontact.udpselectedTab & "...' - - - (" & CSTR( rNumRows ) &6 rr records)" IF rNumRows = 0 THEN btnPhone.Visible = FALSE ELSE btnPhone.Visible == TRUE END IF rCont actid = rec.GetColvall CONTACTID" ) ...